home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
GUNSORT.INT
< prev
next >
Wrap
Text File
|
1992-08-31
|
2KB
|
49 lines
{*******************************************************************
GUNSORT.INT
*******************************************************************}
{===================================================================
UNSORTED COLLECTION - unsorted list of PStrings
===================================================================}
TYPE
PUnsortedCollection = ^TUnsortedCollection ;
TUnsortedCollection = OBJECT ( TCollection )
procedure FreeItem ( Item : pointer ) ; virtual ;
procedure PutItem ( VAR S : TStream ; Item : Pointer ) ; virtual ;
function GetItem ( VAR S : TStream ) : Pointer ; virtual ;
procedure Store ( VAR S : TStream ) ;
constructor Load ( VAR S : TStream ) ;
END ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
REGISTRATION (ObjType: TCollection/50, TStringCollection/51)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
CONST
RUnsortedCollection : TStreamRec =
(
ObjType : 60000 ;
VmtLink : Ofs ( TypeOf ( TUnsortedCollection ) ^ ) ;
Load : @TUnsortedCollection.Load ;
Store : @TUnsortedCollection.Store
) ;
{===================================================================
SORTED COLLECTION - The "Objects" unit doesn't have registration
record for TSortedCollection.
===================================================================}
CONST
RSortedCollection : TStreamRec =
(
ObjType : 60001 ;
VmtLink : Ofs ( TypeOf ( TSortedCollection ) ^ ) ;
Load : @TSortedCollection.Load ;
Store : @TSortedCollection.Store
) ;
procedure SetPStr ( VAR P : PString ; S : string ) ;
function GetPStr ( P : PString ) : string ;
function EmptyMenuBar : PMenuBar ;
function EmptyStatusLine : PStatusLine ;
procedure DisposeCollection ( VAR C ) ;
procedure DisposeView ( VAR P ) ;
procedure DisposeMenuBox ( VAR Box : PMenuBox ) ;
procedure ExecMenu ( G : PGroup ; Box : PMenuBox ; VAR Event : TEvent ) ;